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Editorial 


¡HAGAN JUEGO! 


Una buena revista de ordenadores no puede limitarse a suministrar pro- 
gramas al lector, por útiles que éstos sean. Una revista debe también compro- 
meterse a abrir caminos al usuario que le permitan desarrollar una relación 
más fructífera y creativa con su ordenador. 

Esta es la filosofía de ATARI EXPLORER. Por eso nos esforzamos en incluir 
en cada número no sólo una selección de programas inéditos, sino todo un con- 
junto de secciones y artículos de fondo orientados a ir poco a poco cons- 
truyendo lo que podríamos denominar «Cultura de Atari». 

Sin embargo, por una vez hemos creído conveniente confeccionar un nú- 
mero exclusivamente a base de los mejores programas, sin otro propósito que 
el de ser coherentes con esa especial actitud vital que generan los calores de 
agosto. 

Estamos, en efecto, en el mes mayoritariamente elegido para las vaca- 
ciones en el que todo puede ser aplazado en beneficio de la diversión, el des- 
canso y la evasión. Por ello hemos creído que nuestros lectores apreciarán que 
les facilitemos una amplia y extraordinaria selección de programas específica- 
mente diseñados para disfrutar con el ordenador, sin más pretensiones que las 
de pasar muy buenos ratos. 

Sin embargo, también encontraréis en este Especial-Programas, una refe- 
rencia a algo que por su importancia no debíamos dejar de mencionar con toda 
urgencia. Nos referimos a la aparición en el mercado de tres nuevos y esplén- 
didos libros en español sobre Atari. Se trata de una muy agradable noticia para 
todos los amantes de Atari, especialmente por cuanto su significado no es otro 
que el creciente interés que se está produciendo por la marca, y no sólo en el 
sector editorial. Lo cierto es que cada día que pasa, el usuario de Atari en- 
Ccuentra un mayor apoyo en todos los campos hacia la marca. Es un hecho indu- 
dable que debe ponerse en relación no sólo con el creciente incremento del 
«parque» de Atari, sino con las enormes expectativas que han creado las úl- 
timas novedades de la marca y de las que ya hemos dado cuenta en las pá- 
ginas de ATARI EXPLORER. 

Verdaderamente, es mucho lo que se espera de Atari en el próximo otoño 
y esta revista estará, por cierto, plenamente alerta para mantener a sus lectores 
al filo de la más rabiosa actualidad. Pero mientras tanto, y con los programas 
que hemos incluido en las páginas siguientes... ¡Hagan juego señores! 
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SORTEO MES DE JULIO 


En cuanto al sorteo del pasado mes, el suscriptor que ha ganado el 800 XL ha sido PEDRO DEL RIO FER- 


NANDEZ. 


Ya puede ponerse en contacto con nosotros para recoger su premio y... ¡enhorabuena! 


MERCAMICRO 


Debido a las cartas que hemos recibido, iniciamos 
una nueva sección con el fin de que todos aquellos que 
deseen comprar, vender, intercambiar juegos, perifé- 
ricos, ordenadores, etc., puedan hacerlo a través de 
nuestra revista. Para ello, tan sólo tendréis que mandar 
vuestros anuncios a la redacción. 

— Soy un chico de 17 años y tengo un ordenador 
ATARI 600 XL y me gustaría comprar algunos cartuchos 
de juegos o educativos o de otros temas. Interesados 
llamar al teléfono 62 27 58 de Sevilla. Preguntar por 
José Luis, en horas de comidas. Precio discutible. 

— Desearía contactar con usuarios de ordenadores 
ATARI 600 XL u 800 XL (a ser preferible el 800 XL) que 


ATARI 
ATAR 8OO XL 


- Divicorsa, S.L. 


distribución exclusiva 


tengan cerca de 12 años y que vivan en Valencia. Inte- 
resados llamar al teléfono 333 59 48. VALENCIA. 


— Vendo ATARI 800 XL nuevo, con garantía aún vi- 
gente. Precio: 35.000 pts. con todos sus accesorios e ins- 
trucciones. Teléfono 206 50 12. Madrid. Preguntar por 
Mercedes o Miguel Angel. 


— Me gustaría mantener contacto con usuarios de 
ATARI (sólo ordenadores) para intercambiar o comprar 
programas (preferentemente en cinta). Llamar al 
78 67 72. ALICANTE. O escribir a Juan Postlbauer Go- 
rreas. Cc/ Mayor, 3 (Partida Pedrera). DENIA. ALI- 
CANTE. 


ELECTRONICA 
JOVALL 


GRAN SURTIDO DE SOFTWARE PARA 
ORDENADORES 


ORDENADORES 


CASA PALAU 


Todo tipo de accesorios y 
SOFTWARE para ordenadores 


Gran surtido en cámaras 
fotográficas 


Objetivos y accesorios 


Especialistas en computadoras de 
ajedrez 


ENVIOS CONTRA REEMBOLSO 


Pelayo, 34 - Teléf. 317 36 78 
08001 BARCELONA 


¡nos hemos especializado en el 
mejor de su clase...! 


ATARI 
ATAR! 8OO XL 


ORDENADORES 


c/ Fernando IV, 10 
tfno 26 54 04. Córdoba 


SERVICIO TECNICO 
SALA DE DEMOSTRACION 


ATARI 
[ATAR BOO XL] 


ORDENADORES 


Gran de San Andreu, 129 
Tel. 346 02 12-BARCELONA 


ACADEMIA CABALLERO 
DONDE HAY CABALLERO, HAY CLASE 


Academia Caballero, algo especial para aprender el BASIC en ATARI 
De lunes a viernes, clases de dos horas diarias. 
Cuatro grupos diferentes para adaptarse a cada nivel. 
Grupos: 9-11, 11-13, 16-18, 18-20 


CURSOS DE DOS MESES 


ACADEMIA CABALLERO 


E 


¿no 


g 
os 


Calle de San Lorenzo, 11 (Junto a Hortaleza, 67) 
Teléfonos 419 08 83 y 419 08 84 - 28004 MADRID 
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NUCLEAR (ATARI 600, 800 XL) 


Nuclear es un juego de estrategia, con 10 x 10 Campos. Este juego trata de 
la construcción de campos con una cierta cantidad de masa crítica. Cuando 
se alcance la cantidad de masa crítica, explotará el núcleo atómico, los frag- 
mentos se repartirán simétricamente sobre los campos verticales y horizon- 
tales que limiten el campo explotado. Entonces se alcanzarán en los otros 
campos las masas críticas y se conseguirá una reacción en cadena. Se al- 
canza la masa crítica en una casilla de juegos cuando ésta tenga tantos frag- 
mentos como campos verticales y horizontales la limiten. Los números de los 
campos nos dan el valor de la masa que se tiene en ese momento. 
El contrajuego consiste en tomar los fragmentos de los campos enemigos y 
así evitar la reacción en cadena. Esto significa ganar. 
A través de los nuevos valores X-Y en la retícula quedará definida la nueva 
posición del Fragmento. 


100 REM 223233448142 

101 REM X NUCLEAR kK 

102 REM 3133882 3338% 

170 OPEN $1,4,0,"K:"21F PEEK(87)>0 THEN GRAPHICS O 

180 DIM V(11,11),F(11,11),P$(30),N5$(15) 

190 GRAPHICS O:POKE 82,2:P=0:7? "XX NUCLEAR ":WAIT=1500 

200 REM REGLAS DEL JUEGO 

210 ? "CONOCES LAS REGLAS?"3:GET 4+1,E:? CHRS(E) 2: 1F E<>78 THEN 300 

215 ? "£%XXx REGLAS DEL JUEGO xxx" 

220 ? "EN UN CAMPO DE 10 X 10 DE DENSIDAD CADA JUGADOR DEBE DESPLAZAR LA CARGA A 
UN ESPACIO LIBRE" 

230 ? " O DESPLAZAR CARGAS OCUPADAS EN CAMPOS ESTABLECIDOS .ALCANZAR LA MASA CRI 
TICA" 

240 ? "ASI EXPLOTA Y REPARTE LA CARGA A LOS CAMPOS LIMITROFES" 

250 ? " EL JUGADOR GANA CUYAS CARGAS PERMANEZCAN COMO UNICAS EN EL CAMPO" 
260 2 "" 

270 2 "" 

280 GOTO 310 

290 ? "FIN"3:3GET +1,E:GOTO 400 
300 REM INICIACION DE VARIABLES 
305 ? "UN MOMENTO FOR FAVOR" 
310 FOR X=0 TO 11 

320 FOR Y=0 TO 11 

330 V(X,WY)=02F(X,VY)=102NEXT Y:NEXT X ¡ 
340 FOR Xz=i TO 10:FOR Y=i TO EGO 

350 V(X,Y)=4-(X<2 OR X>9 OR Y<2 OR Y>9) 

360 NEXT Y¿NEXT X 

370 V(1,1)=2:V(10,10)=2:V(1,10)=2:V(10,1)=2 

380 IF E=78 THEN 290 

400 REM 22x% CAMPO DE JUEGO 

410 GRAPHICS 1:POKE 710,0:FOR X=1i TO 10 

420 POSITION X,0:7? 465 CHRS$ (64+X) ¿POSITION 0,X:? 63 X-1:POSITION X,11:7? $6; CHRS (6 
4+X) POSITION 11,X:? 46; X-1 

425 FOR Y=i TO 10 

430 POSITION X,Y:2? Hbo;"." 

440 NEXT Y:NEXT X 

442 POSITION 0,14:PRINT $63 "EXPLOSIONES" 

450 ? ”* PRIMER JUGADOR: "3 + INPUT N$ 

460 L1=LEN (NS) 2P9(1,L1)=NS 

470 ? " SEGUNDO JUGADOR”3: INPUT Ns$ 

480 PS (L1+1)=NS3L2=LEN (N$) 

500 REM % x% 


A 510 Z=Z+1 
520 ? CHR$(125)3PS(PSL1+1,P8L2+L1)3 "JUGADOR “5Z3"2 "3 
530 GET $1,H:PRINT CHR$(H) 5 2:W=1 


540 IF H<65 OR H>74 THEN ? 2? "<<< DONDE??? >>>"260SUB WAIT:GOTO 520 
550 GET $1,V:7? CHRS (V) ] 


560 IF V<48 OR V>57 THEN ? "LA CARGA SE DESPLAZA EN TU CEREBRO":2GOSUB WAIT: GOTO 


520 


O 570 H=H-64: V=V-47: EX=0 
580 R=(P=1)-(P=0) 
£00 REM h e 
610 IF SGN(F(H,V))=-R THEN ? "<<< CAMPO" < 00 /s 520 
620 F(H,V)=F (H, V) +R 
630 POSITION H,V: FOR I=60 TO 10 STEP -2:SOUND O,1,10,10:NEXT 1:SOUND 0,0,0,0 
635 ? 6; CHRS(ABS (F (H,V) )+1288P+16) 
O 640 1F ABS (F (H,V))<V(H,V) THEN GOTO 920 
700. X=H: Y=V:E=0:GOSUB 2000: Q1=0 
710 IF E=0 THEN 800 
O 720 E=0r FOR X=1 TO 10 
730 FOR Y=1 TO 10 
740" 1F ABS(F (X,Y))>=V(X, Y) THEN GOSUB 2000 
> 750 NEXT Y2NEXT X 
760 IF E=1 AND Q1<99 THEN 720 
770 W=1: 1F Q1>=99 THEN W=-1 
800 REM 
= ro FOR X=1 TO 10 
/820 FOR Y=1 TO 10 
830 IF SGN(F(X,Y))=-R THEN Q1=0:60TO 920-2008 (W<0) 
2. 900 NEXT Y:NEXT X 
910 POSITION 0,1427? 46; "JUGADOR"5PS$(PEL1+1,PEL2+L1)3" ":7? 463 "GANADOR" 
' 912 FOR Qi=1 TO 3 
E 913 FOR 1=220-Q1%10 TO 30-Q1£10 STEP -20 
914 FOR E=1 TO I+10 STEP 2:SOUND O,E,10,5S+E-I:NEXT EzNEXT I:NEXT Qí 
' 915 FOR I=10 TO 250 STEP 2:SOUND 0,1,0,15:POKE 708, 1:NEXT 1 
2 ' 718 SOUND 0,0,0,0:7? "QUIERES JUGAR DE NUEVO?";:GET 41,1: 1F 1=83 OR 1=89 THEN RU 


IN 


(919 GRAPHICS 0: END 
920 REM 
990 P=P-R:W=1:G0TO S510+P%10 


1500 
2000 
Do 2120 
2130 
72140 
2150 
Y 2155 
| 2160 
d 2170 
' 2180 
l. 2185 
2190 
212200 
2210 
3000 
> 4000 


FOR I=1 TO 500:NEXT 12: RETURN 


REM x3xx% 1232 


RESTORE ¿FOR I=1 TO 4 [5 ll 
READ DX,DY:SOUND 0,40-1£10,0,10 >= fi 
L=F (X+DX, Y+DY) 3 IF L>9 THEN 2200 -—/ 

F (X+DX, Y+DY)=ABS (L) 8R+R 


REM CO=CO-L4R:C1=C1+LERE:POS 2,15: 7?46;5C0:POS. 6,15: 786;C1 + ME ex y) 0 
IF ABS(F(X+DX, Y+DY) ) >=V (X+DX, Y+DY) +. E=1 2 17d 5 0x7 Y] y) 
POSITION X+DX,Y+DY poo e / po 


2 6; CHRS (ABS (F (X+DX, V+DY) )+128%P+16 

POSITION X,Y:7? 465"." ¿L— 

1F F(X,Y)<>0 THEN POSITION X,Y:? 65 CHRS$ (ABS (F (X, Y) )+1281P+16) 

NEXT 1I:EX=EX+1:01=Q01+1: SOUND 0,0,0,0 

POSITION 12,14:7? 65EX5" "RETURN 

DATA 1,0,-1,0,0,1,0,-1 

FOR Qi=100 TO 200 STEP 10:FOR I=Q01+20 TO Q1-20 STEP -2:SOUND O, 1,10,10:3NEXT 


I:NEXT Q1:SOUND 0,0,0,0: RETURN 


ESPECIAL VACACIONES 


ATAQUE AEREO 


Con el ordenador personal ATARI se pueden emplear subprogramas grá- 
ficos que están escritos en lenguaje maquinario, en los programas de BA- 
SIC. Un gráfico especial de juegos, que dibuja cohetes, puede ser llamado 
memoria de trabajo. Esto no lo tienen otros ordenadores, Este gráfico está 
programado en el lenguaje rápido de las máquinas y recuerda la proceden- 
cia de los ordenadores ATARI de los tele-juegos. El gráfico es más lento 
cuando se realiza con el programa BASIC, pero es todavía más rápido que 
si hay que programarlo de nuevo. Para principiantes será lo mejor para mo- 
dificar al principio unas instruciones del DATA, hasta que obtengan un avión 
o un barco a su gusto. La primera indicación DATA en la línea 2812 deter- 
mina la bomba, las dos siguientes el avión y las siguientes, la explosión y el 
barco. Con las líneas 1944-2814 se determinará el color y el tamaño de los 
elementos del juego. Si cambias la línea 1984 al POKE Sf,3 y la línea 1990 al 
POKE Sg+1,4 obtendrás un avión muy alargado, que intenta disparar a un 
barco muy pequeño. También son interesantes los subprogramas que deter- 
minan los efectos sonoros. En este programa se regula la potencia sonora de 
los barcos y los aviones con la posición de la pantalla. Igualando el valor del 
DEMO en la línea 1444 a 1, el avión siempre acertará. 
Lo mejor sería, fijar la versión original del ataque aéreo en cinta o diskette 
para que no ocurran desgracias. No hay que sorprenderse si vuelan aviones 
o barcos de un lado a otro por el programa en listado o las instrucciones del 
juego. Este gráfico de juego también puede volar sobre textos o cualquier 
otro gráfico, sin que se borre lo que está escrito por debajo. Pulsando la te- 
cla BREAK e introduciendo LIST, estos fenómenos pueden seguir apare- 
ciendo. 


1000 REM 83832 RRAIRRRAARAD IRIS 


1010 REM %£ x 
1020 REM x ATAQUE AEREO ES 
1030 REM kx . Ad 
1040 REM 83883811281 RAAR 
1050 REM 


1060 REM ESTE PROGRAMA UTILIZA EL 
1070 REM GRAFICO DE COHETES DE ATARI 
1080 REM 

1090 REM 

1100 REM ADEMAS HACE MUSICA CON SOUND 
1110 REM 

1120 REM DIMENSION DE VARIABLES 

1130 DIM BM(4),SH(31) 

1140 DEMO=0 

1150 BM(1)=0 

1160 GOTO 1390 

1170 REM SALTO A LAS INSTRUCCIONES DEL JUEGO 
1180 POSITION 2,23 

1190 POKE 754,255 

1200 ? “CONTINUE CON RETURN"; 

1210 IF PEEK(754)<>12 THEN 1210 

1220 POKE 754,225 

1230 RETURN 

1240 ? "3" 

1250 POSITION 11,3 

1260 ? "*£x rex" 


1270 POSITION 2,6 
e 1280 RETURN PS 
1290 FOR I=1 TO 3 
1300 POKE MY+384+YB+I,BM(I) 
1310 NEXT 1 
e 1320 RETURN d 
1330 B=0 
1340 FOR I=0 TO 20 
3 1350 POKE MY+384+80+1,0 de 
1360 NEXT 1 
1370 YB=0 
0 1380 RETURN 0 
1390 GRAPHICS O 
1400 SL=15 
1410 GOSUB 1240 
"EN ESTE JUEGO ERES EL PILOTO DE" 0 
"BORBANDERO. HACES PUNTOS CUANDO UNDES " 
"BARCOS ENEMIGOS" 
"DISPARANDO CONTUS BOMBAS" Li 


"DISPARAS LAS BOMBAS" 

"PULSANDO CUALQUIER TECLA" $ 
"LA CANTIDAD DE PUNTOS" 

"DEPENDE DE LA PARTE DEL BARCO DADA" 

"SI DAS EN LA CUBIERTA BAJA SON 10 PUNTOS" 8 


"SI DAS EN LA CUBIERTA ALTA SON 20 PUNTOS" 
"DANDO EN LAS DOS SON 30 PUNTOS" 


a 

pa 

+ 

[00] 

[o] 
YD Y YY YY Y 


e 1580 GOSUB 1240 o 
1590 ? "TIENES"3SL5¿"BOMBAS EN TU AVION" 
1600 ? "LA VELOCIDAD DE LOS BARCOS CAMBIA TODO EL RATO" 
pe 1510 ? "NO MALGASTES LA MUNICION" 0 
1620 ? 
1630 ? " MUCHA SUERTE !!:!" 
1640 GOSUB 1180 e 
ES 1650 RESTORE 
1660 FOR I=1 TO 3 
1670 READ A:BM(1)=A 
ES 1680 NEXT 1 » 
1590 GRAPHICS 5 
1700 COLOR 2 
e 1710 SETCOLOR 2,10,5 $ 
1720 FOR Y=38 TO 39 
1730 PLOT 0, Y 
0 1740 DRAWTO 79, Y Oo 
1750 NEXT Y 
1760 PM=54279 
1770 RA=106 
En 1780 SD=559 d 
1790 GR=53277 
1800 HO=53248: REM POSICION DE PO 
» 1810 CO=704:REM COLOR DE PO «e 
1820 SO=53256: REM TAMANO DE PO 
1830 A=PEEK(RA)-8: REM LLAMADA DEL REM 
le 1840 REM DEBAJO DE LA DIRECCION PRINCIPAL a 
1850 POKE PM,A:REM ANTIC DONDE SE 
1860 REM PUEDE HALLAR EL REM DE LOS COHETES 
1870 MY=256%A: REM DIRECCION DEL COHETE EN EL REM 
0 1880 POKE SD, 46 ll 
1890 POKE GR, 3 
1900 FOR I=MY+348 TO MY+748 
y 1910 POKE 1,0 E 
1920 NEXT 1 


REM DEL JUEGO LIBERADO 

POKE CO, 140 

POKE CO+1,104 

POKE HO, O 

POKE H1,0 

POKE SO, 1 

POKE SO0+1,3 

POKE S0+4, 1 

FOR I=1 TO 6 

READ A:POKE MY+530+1,A 

NEXT 1 

FOR I=1 TO 6 

READ A 

POKE MY+725+1,A 

SH(1)=A 

NEXT 1 

FOR 1=7 TO 31 

READ A 

SH(1)=A 

NEXT 1 

sC=0 

X1=0 

X2=0 

S2=3 

? ")SITUACION DE PUNTOS"; SC 
? "BOMBAS RESTANTES"; SL 

IF SL=0 THEN 2890 

POKE HO, X1 

POKE HO+1,X2 

Xi=X1-1.5 

IF X1<40 THEN X1=190 
X2=X2+82 

IF X2<191 THEN 2280 
32=INT(RND (1) £3)+1 

Xx2=40 

SOUND 1,50-S2,4,3-ABS ( (X2-127) /128) 23 
SOUND 0,20,8,3-ABS ( (X1-127)/128) 3 
IF B THEN 2560 

IF S2>0 THEN 2450 

CT=CT+1 

FOR I=i TO 6 

POKE MY+725+1,SH(CTR6+1) 
NEXT 1 

SOUND 2,CT815+RND(1)2190,4,8 
IF CT=4 THEN CT=-1:GOTO 2420 
IF CT>O THEN 2450 

82=3 

X2=255 

SOUND 2,0,0,0 

X2=1 

POKE HO+1,0 

REM 

IF NOT DEMO THEN 2490 

IF X1-30<X2+82835 THEN 2490 
IF X1-30>X2+S2835+4 THEN 2490 
GOTO 2510 

IF PEEK(754)=255 THEN 2200 
POKE 754,255 

B=1: YB=20 

SL=SL-1 

POKE 53278,0: REM BORRAR HACIERTO 
X3=X1+3 

POKE HO+4,X3 

IF YB<91 AND S2 THEN 2610 
GOSUB 1330 

POKE 754,255 


12 


2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3030 
3060 
3070 
3080 
3090 
3100 
3110 


3120 ? 


3130 
3140 
3150 
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SOUND 2,0,0,0 

GOTO 2170 

POKE 540, 2 

IF PEEK (540) THEN 2620 
CL=PEEK (SO) 

POKE 53278,0: REM BORRAR HACIERTO 
IF CL<>2 THEN 2740 

IF YB=86 THEN P=30 

IF YB=88 THEN P=20 

IF YB=90 THEN P=10 
S2=0 

SC=SC+P 

CT=0 

GOSUB 1330 

GOTO 2170 

SOUND 2,20+YB,10,4 
GOSUB 1290 

POKE HO+4,X3 
X3=X3-0.75 

IF X3<40 THEN X3=190 
YB=YB+2 

GOTO 2200 

DATA 0,0,1,1 

DATA 1,13,63,115,127 
DATA 4,4,14,14,63,63 
DATA 0,18,33,18,51,12 
DATA 0,0,33,18,63, 12 
DATA 0,0,12,12,30,12 
DATA 0,0,0,0,0, 18 
DATA 0,0,0,0,0,0 
GRAPHICS 0:60SUB 1240 
? "FINAL DEL JUEGO" 
SOUND 0,0,0,0 

SOUND 1,0,0,0 

SOUND 2,0,0,0 

? "TU PUNTUACION FINAL DE";SCj3"ES" 
POKE 3559, 34 

POKE 53277,0 

FOR I=53261 TO 53265 
POKE 1,0 

NEXT I 

ON SC/25 GOTO 3010, 3040, 3060, 3080,3100,3120,3140 
IF SC/25>6 THEN 3140 
? "MUY MALA" 

END 


2? "FANTASTICO" 
END 


XYO 


Descripción del programa (ATARI 600 XL, 800 XL, 5100 bytes, 1 ó 2 joys- 
ticks). Para uno o dos jugadores. 
Si una vez lo ha jugado en un cristal empañado, ya no tiene que aprenderse 
las reglas de juego. 
Para ganar el juego, tienes que colocar tres X o tres 0 en la horizontal, en la 
vertical o en la diagonal en una línea. Si juega varias veces, con un segundo 
jugador, tendrá que alternar entre ambos el comienzo del juego. 


1) 

$ 

OD 10 REM 3283289284 
20 REM k£ * 
3O REM % XYO  x 

E 40 REM £ * 


SO REM 2828282892 
90 OPEN $1,4,0,"K:" 
100 DIM X$(1),S1$(12),S28 (12) 

O 110 GRAPHICS 2 
115 SETCOLOR 2,0,0 
120 POSITION 4,4:7? Hé6z" X Y O ” 

O 122 ? "JUEGO CON EL ORDENADOR ? = (1)" 
123? " >”  »* DOS JUGADORES ? = (0)” 
124 ? "AHORA ELIGE :::” 

0 125 GET 41,HH:CPL=HH-48:? CHR$ (125) 

126 IF CPL<>1 AND CPL<>O THEN 122 
130 ? "NOMBRE DEL PRIMER JUGADOR"; 2 INPUT S1$ 

o 135 1F CPL=1 THEN S28="EL COMPUTADOR":GOTO 150 
140?" »» ”? SEGUNDO ”” "32 INPUT S2$ 
150 GOTO 500 
160 AP=0: AP1=0 

O 163 RESTORE 3050 
165 PY=0:PX=0 
170 FOR X=1 TO 3 

(180 READ N,M: IF N=-1 THEN 300 
190 LOCATE N,M,PP 
200 IF PP=ASC("X") THEN PY=PY+1 

E 210 IF PP=ASC("0") THEN PX=PX+1 
220 IF PP=32 THEN Bi=N: B2=M 
230 NEXT Xx 
240 IF PX+PY=3 THEN 165 

IF APi=1 AND PY=2 THEN 270 
250 IF PX=2 THEN 270 
260 GOTO 165 

0 270 POSITION B1,B2:? 6; "0" 

280 GOSUB 1220160T0 900 
300 AP=AP+11 1F AP=1 THEN AP1=1 

O 310 IF AP=2 THEN 270 
320 GOTO 163 
500 GRAPHICS 2 

e 305 SETCOLOR 2,0,4:SETCOLOR 0,8,5 
510 FOR X=1 TO 9 
520 POSITION 6,X:7? $6; "*" 


El 
Ny 
Hh 
ul 


¡Ae 


530 POSITION 10,X27? $63 "8" - 

540 NEXT X 

550 FOR X=3 TO 13 

560 POSITION X,3:17 63 "%*" 

570 POSITION X,7:7? Hoz "4" 

580 NEXT X 

590 Za2+1: 1F Z/2=INT(Z/2) THEN TE=1:GOTO 610 
£00 TE=0 

610 IF TE=0 THEN ZO=Z0+1 

620 IF TE=1 THEN Z1i=Z1+1 

625 ? CHR$(125) 

630 IF TE=0 THEN ? " "¿S1%$;"”S"3Z03".JUG" 
640 IF TE=1 THEN ? " "382653""S"3Z13".JUG" 
645 IF CPL=1 AND TE=1 THEN 160 

650 ? "MUEVE EL JOYSTICK" 

660 ? "Y PULSA EL BOTON" 

670 IF TE=0 THEN RESTORE 3000 

680 IF TE=1 THEN RESTORE 3010 

690 READ X$ 

700 REM 23232% GUIAR 182228 

710 IF STICK(TE)=10 AND STRIG(TE)=0 THEN Y=10:GOSUB 1050: POSITION 4,1:7? 65X8:G0 
SUB 1220: G0TO 900 

720 IF STICK(TE)=14 AND STRIG(TE)=0 THEN Y=14:GOSUB 1050:POSITION 8,1:7? %6;X3: 60 
SUB 1220:G0TO 900 

730 1F STICK(TE)>=ó6 AND STRIG(TE)=0 THEN Y=6:GOSUB 1050:POSITION 12,117? 865X3160S > 
UB 1220:1G0TO 900 

740 IF STICK(TE)=11 AND STRIG(TE)=0 THEN Y=11:GOSUB 1050:POSITION 4,5:7 46;X8:60 
SUB 1220:G0TO 900 e 
750 IF STICK(TE)=15 AND STRIG(TE)>=0 THEN Y=15:G0SUB 1050:POSITION 8,5:7 465X$:60 
SUB 1220: GOTO 900 

760 1F STICK(TE)=7 AND STRIG(TE)=0 THEN Y=7:GOSUB 1050: POSITION 12,517? t65X$:60S 
UB 1220: G0TO 900 1) 
770 1F STICK(TE)=9 AND STRIG(TE)=0 THEN Y=9:GOSUB 1050:POSITION 4,9:7? $6; X$:GOSU 

B 1220:60T0 900 

780 IF STICK(TE)=13 AND STRIG(TE)=0 THEN Y=13:GOSUB 1050:POSITION 8,9:7? $65X8:G0 
SUB 1220:G0TO 900 

790 IF STICK(TE)=5 AND STRIG(TE)=0 THEN Y=5:G0SUB 1050: POSITION 12,9:7? %6;X8:60S 
UB 12201G0TO 900 

800 GOTO 700 

900 RESTORE 3020 

910 READ Q,C 

920 IF Q=-1 OR C=-1 THEN 970 

930 SOUND 0,0,10,8 

940 FOR X=1 TO C:NEXT X 

950 SOUND 0,0,0,0 

960 GOTO 910 

970 GOTO 590 

1050 IF Y=10 THEN LOCATE 4,1,0OP:2GOTO 1200 

1060 IF Y=14 THEN LOCATE 8,1,OP:GOTO 1200 

1070 IF Y=b6 THEN LOCATE 12,1,OP:GOTO 1200 

1080 IF Y=11 THEN LOCATE 4,5,OP:GOTO 1200 

1090 IF Y=15 THEN LOCATE 8,5,OP:GOTO 1200 

1100 IF Y=7 THEN LOCATE 12,5,OP2GOTO 1200 

1110 IF Y=9 THEN LOCATE 4,9,0P:G0TO 1200 

1120 IF Y=13 THEN LOCATE 8,9,0P:GOTO 1200 

1130 IF Y=5 THEN LOCATE 12,9,0P:GOTO 1200 

1200 REM 

1205 IF TE=0 AND OP=ASC("0") THEN GOSUB 2000 

1210 IF TE=1i AND OP=ASC("X") THEN GOSUB 2000 

1215 RETURN 

1220 ZZ7=0 

1225 RESTORE 3050 

1230 READ N,M 

1235 IF N=-1 OR M=-1 THEN RETURN 

1240 LOCATE N,M,S 

1245 IF S=ASC("0") OR S=ASC("[CODE216J") THEN ZZ=ZZ+1 


IF ZZ=24 THEN 4003 
READ N,M 

IF N=-1 OR M=-1 THEN RETURN 

LOCATE N,M,T 

IF T=ASC("0") OR T=ASC("X") THEN ZZ=ZZ+1 

IF ZZ=24 THEN 4003 

READ N,M 

IF N=-1 OR M=-1 THEN RETURN 

LOCATE N,M,R 

IF R=ASC("0") OR R=ASC("X") THEN ZZ=Z7+1 

IF ZZ=24 THEN 4003 

IF TE=0 AND S=ASC("X") AND T=ASC("X") AND R=ASC("X") THEN 4000 
IF TE=1 AND S=ASC("0") AND T=ASC("0") AND R=ASC("0") THEN 4010 
GOTO 1230 

? CHR$(125)3"%8% CASILLA DEL ENEMIGO 282" 
FOR X=1 TO 255 STEP 0.5 

SOUND 0,X,10,8 

NEXT x 

SOUND 0,0,0,0 

GOTO 630 

DATA X 

DATA O 

DATA 81,80,72,40,81,40,91,40,96,40,108,40,1721,80,60,40,0,15,60,40,1,-1 
DATA 4,1,8,1,12,1,4,5,8,5,12,5,4,9,8,9,12,9 
DATA 4,1,4,5,4,9,8,1,8,5,8,9,12,1,12,5,12,9 
DATA 4,1,8,5,12,9,4,9,8,5,12,1,-1,-1,-1 
GRAPHICS 2 

GOTO 4005 

POSITION 6,517? 63 "TABLAS" 

GOTO 4050 

POSITION 3,1:7? 6;31$:GOTO 4020 

GRAPHICS 2 

IF CPL=1 THEN S2$="EL ORDENADOR" 

POSITION 3,117? 463528 

POSITION 5,317 6] "HA" 

POSITION 3,527? 63 "GANADO " 

FOR X=0 TO 255 

SOUND 0,X,8,8 

NEXT X 

SOUND 0,0,0,0 

? CHR$(125) 

? "QUIERES JUGAR OTRA VEZ S/N?" 

GET $1,J1 1F J=ASC("S") THEN RUN 

END 


10540 dimensionar las variables. 


CAZA DEL ROBOT 


El ATARI BASIC es suficientemente rápido para diseñar este juego tan difí- 
cil que se le ponen los pelos de punta al jugador. En el campo de juego es- 
tán distribuidas casillas amarillas que tienen carga eléctrica y que pueden 
eliminar igual al robot como al jugador. El margen del campo de juego tam- 
bién tiene carga eléctrica, pero los robots son demasiado listos para que co- 
rran en esta dirección. Esto sólo le puede ocurrir al jugador. Los robots son 
azules y serán atraídos al jugador con un poder electromagnético. Si alcan- 
zan al jugador, el juego está terminado. La táctica del jugador será entonces 
esconderse detrás de las casillas amarillas y llevarlos a la ruina. También es 
posible hacer chocar a los robots, escondiéndose rápidamente detrás de 
una casilla amarilla. La portada está diseñada con muchos trucos. Las indica- 
ciones del PEEK y POKE en las líneas 1490-1110 cambian la longitud de las 
líneas de la pantalla y separan a las letras en la parte superior de la panta- 
lla. Pulsando la tecla BREAK, se para el programa mientras está la imagen 
en la pantalla, viéndose el efecto perfectamente. 
Sacándose su lista del programa con el LIST, aparece la lista con letras 
grandes en esta parte de la pantalla. En las líneas 1240-1284 se indicará el 
grado de la dificultad. A lo largo del juego se utilizará la variable A para el 
tamaño de los pasos con los que se mueven los robots, con las líneas 129- 
1364 serán escritos los valores que indica el joystik, en una tabla. 


2264 cuenta de puntos. 


1120 duelo de cohetes. 

1140 este juego está pensado para dos jugadores. 

1159 con los joystiks, los cohetes. 

1164 serán fijados en la meta y se dispara. 

1179 la meta es la base de disparo del enemigo. 

1182 en la pantalla estarán indicados los valores, 
la velocidad del viento y del 

1195 ángulo de disparo. 

121% sigue con return. 

2064 cuenta de puntos. 

212% posición del cañón. 

2170 velocidad del cohete. 

2224 posición del cañón. 


1000 REM AXERAARAAAIA III ARA 
1010 REM kK ' 
1020 REM k CAZA DE ROBOTS 
1030 REM kK x 
1040 REM RIBA AAA RA 
1050 REM 

1060 DIM JX(10),JY(10),RX(4),RY(4),A58 (20) 
1070 GRAPHICS O 

1080 SETCOLOR 2,0,0 

1100 POKE W+4,7:2 REM ALTERNANDO EL 
1120 POKE 752,1 

1130 POSITION 7,4 


2290 diseñar la pantalla. 

2300 la velocidad ocasional del viento. 
2310 apagar el cursor. 

24308 comienzo de la vuelta principal. 
2490 valorizar la señal del joystik. 
2580 pulsar el botón de juego. 

2624 mover el cohete. 

2149 identificar el acierto. 

2864 final de la vuelta principal. 

2544 búsqueda de aciertos del cohete. 
3114 borrar y volver a dibujar. 

3124 la base de disparo. 

325% dibujar el trayecto de vuelo. 


1110 POKE W+5,7:REM DIBUJO 


1140 PRINT "ROBOTS - CAZA -" 

A 1150 PRINT 
1160 PRINT "LA ESENCIA DE ESTE JUEGO ES,MANTENERSE A DISTANCIA DE LOS ROBOTS. PAR 
A EVITAR" 

o 1180 PRINT "QUE SE TE ACERQUEN LOS TIPOS,TE ESCONDES DETRAS DE LAS CASILLAS. " $ 
1195 PRINT "PEROPROCURA NO TOCAR NUNCA LAS CASILLAS O LAS PAREDES, PORQUE TIENEN 
CARGA ELECTRICA. " 

1200 PRINT 
(O 1210 PRINT "SI QUIERES OBTENER UNA NUEVA IMAGEN EN LA PANTALLA PULSA EL BOTON DE % 
JUEGO (TRIGGER) a" 


1220 PRINT 
() 1230 PRINT "NIVEL DE DIFICULTAD 1(=DIFICIL) O 2(=FACIL)"; 0 
1240 INPUT AS 
1250 IF A$="" THEN As="2" 
o 1260 ASINT(VAL (As) o 
1270 IF A<i OR A>2 THEN A=1 
1280 A=1/A 
1290 FOR 1=0 TO 10 
O 1300 READ Y e 
1310 JX(I)=V 
1320 NEXT 1 : 
% 1330 FOR I=0 TO 10 : PS 


1340 READ Y 
1350 JY(1)=4 
1360 NEXT 1 

O 1370 GRAPHICS 3 o 
1380 COLOR 2 

1390 PLOT 0,0 

% 1400 DRAWTO 39,0 a 
1410 DRAWTO 39,19 
1420 DRAWTO 0,19 

> 1430 DRAWTO 0,0 mn 
1440 FOR I=1 TO 10 
1450 X=INT(RND(0) 840) 

€ 1460 Y=INT(RND(O) $20) 0 
1470 LOCATE X,Y,V 
1480 IF V<>O THEN 1450 


1490 COLOR 2 
% 1500 PLOT X, Y O 
1510 NEXT 1 
1520 FOR I=1 TO 4 
(O 1530 X=INT(RND(0) 140) la 


1540 Y=INT(RND(0) £20) 
1550 LOCATE X,Y,V 

% 1560 IF V<>0 THEN 1530 eS 
1570 RX(1)=X 
1580 RY(I)=Y 
1590 COLOR 3 

Y oa PLOT X, Y 0 
1610 NEXT 1 
1620 X=INT(RND(0)£40) 

% 1630 Y=INT(RND(0) 820) 0) 
1640 LOCATE X,Y,V 

- 1650 IF V<>0 THEN 1620 

O 1660 PX=X e 
1670 PYay 
1680 COLOR 1 
1490 PLOT X,Y 

o 1700 F=0 050 
1710 FOR 1=0 TO 128 


e 1720 POKE 708,1 o 
1730 1F STICK(0)<>15 THEN I=128:F=1 
1740 NEXT 1 
1750 IF F=0 THEN 1710 

% 1760 POKE 708,40 ES 


1770 J=STICK(0)-5 


0 al 


1780 
1790 
% 1800 
1810 
1820 
O 1830 
1840 
1850 
E 1860 
1870 
1880 
1890 
0 1900 


XT W:GOTO 2290 
1910 
O 1920 
1930 
1940 
o 1950 
1960 


SOUND 0, 10,4,8 

IF STRIG(0)=0 THEN 2350 
X=PX+JX (3) 

Y=PY+JY (3) 

LOCATE X,Y,V 

IF V<>0 THEN 2210 


COLOR O 
PLOT PX,PY 
COLOR 1 
PLOT X,Y 
PX=xX 

PY=Y 


IF (RX(1)+RX(2)+RX(3)+RX(4))<0 THEN PRINT “HAS GANADO! '”":FOR W=1 TO 1000:NE 
FOR I=1 TO 4 

COLOR O de 
IF RX(1)<0 THEN 2060 

PLOT RX(1),RY(I) 

X=RX (1)-PX2 Y=RY (1) -PY $ 
IF X<O THEN RX(1)=RX(1)+A 

IF X>0 THEN RX(1)=RX(1)-A 

IF Y<O THEN RY(1)=RY(I)+A E 
IF Y>O THEN RY(1)=RY(1)—A 

LOCATE RX(I),RY(I),V 

IF V=i THEN 2080 o 
IF V=2 THEN RX(1)=-1:G0TO 2060 

IF V=3 THEN 2120 

COLOR 3 

PLOT RX(I),RY(1) de 
NEXT 1 

GOTO 1770 

COLOR 1 ES 
PLOT PX,PY 

PRINT "UN ROBOT TE HA ATRAPADO! " 

GOTO 2240 2% 
FOR S=1 TO 4 

IF RX(S)=-1 OR S=I THEN 2190 

IF RX(S)<>)RX(1) OR RY(S)<>RY (1) THEN 2190 

COLOR O $ 
PLOT RX(S),RY(S) 

RX(1)=-1 

RX (S)=-1 $ 
NEXT S 

GOTO 2060 

IF V=2 THEN PRINT "HAS RECIBIDO UNA DESCARGA ELECTRICA!!!" ES 
IF V=3 THEN PRINT “AHORA TE HAS CHOCADO CON UN ROBOT!" 

IF V=1 THEN 1840 

PRINT * HAS PERDIDO. ” 


FOR 1=0 TO 128 0 
SOUND 0,1,8,8 - 

POKE 708, 1 

NEXT 1 ; : E 


POKE 708,40 

SOUND 0,0,0,0 

PRINT a 
PRINT "PULSA EL BOTON DE JUEGO,SIQUIERES JUGAR OTRA VEZ!" 

IF STRIG(0)<>0 THEN 2330 


GOTO 1370 e 
PRINT “YA TE RINDES?" 

PRINT "DE ACUERDO,TE DIBUJO UNA PANTALLA NUEVA. " 

GOTO 2290 

DATA 1,1,1,0,-1,-1,-1,0,0,0,0 % 


DATA 1,-1,0,0,1,-1,0,0,1,-1,0 


ESPECIAL VACACIONES 


LINTERNA MAGICA (ATARI 600, 800) 


Este programa es una versión de Calidoscopio en pantalla. Toda función, 
como en un cuento de hadas, son sus múltiples combinaciones de colores. 
Para ello necesitamos utilizar los modos 15+16 del ATARI COMPUTERS. 
Esto. significa que en la pantalla se obtendrá 160 columnas de resolución y 
cuatro colores distintos a la vez (línea 192). No se obtendrá en alta resolu- 
ción, pero sobra para nuestra meta. El programa nos mostrará las formas 
gráficas de nuestro ATARI. 

Construcción del programa: 

En las líneas 254 y 264 se fijan las necesidades de iniciación (WH, MD), del 
centro de coordinación del sistema. 

Desde la línea 267 hasta la 280 se muestra la imagen especular. 
Desde la línea 290 hasta la 300, se obtiene el cálculo de iniciación y finaliza- 
ción especular, según el eje X e Y. 

En la línea 334 hallamos las necesidades para ruptura de línea. 

Con la línea 344 podemos elaborar un nuevo modelo. 

De la línea 356 a la 384, ruptura de línea, nuevo color. 

De la línea 386 a la 420, se obtiene la eliminación de pantalla y el comienzo 
de un nuevo modelo. 


REM ERIAAIRAAAAA RA ARA 
REM kx x 
REM x LINTERNA MAGICA % 
REM x 


x 
REM RRXXAARARA RARA RA AAA AAA 
GRAPHICS 15+16 
MI=80: M1=MI+1 2: WH=M1 : A=2 
COL=INT(7XRND(1)+1):GOTO 390 
TRAP 282: COLOR COL:¿PLOT X1+WH, Y1+M1:DRAWTO X2+WH, Y2+MI1 
PLOT Y1+WH, +X1+MI:zDRAWTO Y2+WH, X2+MI 
RETURN 
H=X1+XV1: X1=H-INT (H/M1) M1: H=Y1+YV1 : Y1=H-INT (H/M1)3M1 
H=X2+XV2: X2=H- INT (H/M1) xM1 : H=Y2+YV2: Y2=H-INT (H/M1) xM1 
Yi=-Y1:Y2=-Y2:G0SUB 270: X1=-X1:X2=-X2: GOSUB 270 
Yi=-Y1:Y2=-Y2:GOSUB 270: X1i=-X1:2 X2=-X2: GOSUB 270 
IF RND(0)xA<1 THEN GOSUB 360 
IF RND(0)x£150<1 THEN 390 
GOTO 290 
XV1=INT(RND (0) £11+0.5)-5: YV1=INT (RND (0) 111+0.5)-5 
XV2=INT (RND (0) x11+0.5)-52 YV2=INT (RND (0) k11+0.5)-5 
COL=INT (RND (0) *7+1):A=10 
RETURN 
GRAPHICS i5+16:A=1 
X1i=1:Y1=1 
X2=1:Y2=1 
GOTO 310 


19 


COMBATE DE CASTILLOS 


Descripción del programa: (ATARI 600 XL, 800 XL, dos joysticks, 7324 bytes) 
El combate de castillos se juega én una tabla de 6 Xx 6 casillas dibujada en 
la pantalla. En 21 jugadas, los jugadores colocan alternando cada vez un cas- 
tillo en una casilla libre con su bandera propia, o amplían un castillo del 
propio color por un nivel. Las ampliaciones de los castillos, sólo son posibles 
hasta un tercer nivel. Más de esto no se puede ampliar. Después de cada 
jugada, el ordenador recopila para cada casilla, cuál de los jugadores tiene 
ahí una ventaja. Para eso se tiene en cuenta el nivel de los castillos de la 
casilla en cuestión y el de las cuatro casillas que está junto a ella vertical y 
horizontalmente. 
Para esto veamos un ejemplo: en un dibujo, Blanco acaba de edificar el cas- 
tillo, dotado con una flecha. Para la comparación de los poderes en la casilla 
central, esto significa que allí ahora hay cuatro puntos a favor de Negro, es 
decir, dos puntos por el castillo que está en esta casilla y dos puntos más 
para el castillo de al lado. Blanco, sin embargo, aporta cinco puntos en cada 
caso, dos por sus castillos a la derecha y abajo y uno por su nuevo castillo 
arriba. 
El castillo central de Negro de dos niveles se quita y la bandera del jugador 
de Blanco declara el cambio de las relaciones de poderes y sólo sirven 
para imposibilitar al enemigo y ocupar una casilla. 


100 REM EEEXSESELLLRLLLLE CERRO 
O 101 REM x z 
102 REM *£ COMBATE DE CASTILLOS t 
103 REM t x 
O 104 REM RERRESERERESERRRLL ALLER 
110 S=1:V=656: H=V+1 
120 DIM N$(30) ,P$(15),F(7,7),X(1),Y(1),W(2) 
O 130 X(O)=11 (0) =11X(1)=6: Y (1)=6:W(0)=0:4(2)=0 
140 OPEN 41,4,0,"K" 
200 REM REGLAS DEL JUEGO 
y 210 PRINT "*SACOMBATE DE CASTILLOSARA" 
220 PRINT “NOMBRE DEL PRIMER JUGADOR": INPUT NS 
225 L1=LEN(NS) :PRINT "NOMBRE DEL SEGUNDO JUGADOR": INPUT Ps 
230 L2=LEN(PS):N$(L1+1)=P8 
% 240 POSITION 2,0: PRINT "REGLAS DEL JUEGO" 
245 PRINT "EN 21 JUGADAS LOS JUGADORES COLOCAN ALTERNANDO CADA VEZ UN CASTILLO E 
N UNA CASILLA LIBRE O AMPLIAN" 
O 250 PRINT "UN CASTILLO PROPIO YA EXISTENTE POR UN NIVEL.EN ESTE CASO UN CASTILLO 
SOLO PUEDE" ; 
255 PRINT "SER AMPLIADO HASTA EL TERCER NIVEL. DESPUES DE CADA JUGADA EL ORDENADO 
€ R RECOPILA PARA CADA CASILLA, CADA" : 
260 PRINT "JUGADOR TIENE AHI UNA VENTAJA.PARA ESTO SE TIENE EN CUENTA LA FUERZA 
DE LOS CASTILLOS EN LA CASILLA EN C" 
o 2£5 PRINT "Y EN LAS CUATRO CASILLAS DE SU ALREDEDOR. * 
270 PRINT "ESTA CLARO?. ENTONCES, PULSAR EL BOTON ROJO DEL MANDO DE JUEGO." 
290 IF STRIG(0)+STRIG(1) THEN 290 


3 0 


L VACACIONES 21 


300 REM COLOCACION DEL CAMPO DE JUEGO 

o 305 PRINT “UN MOMENTO POR FAVOR" e 
310 FOR I=0 TO 7: FOR K=0 TO 7 
320 F(1,K)=9%(1=0 OR K=0 OR l=7 OR K=7):NEXT K:NEXT 1 
350 GRAPHICS 7: COLOR 3: POKE 752,1:POKE 708, 4 

O 360 FOR 1=0 TO 78 STEP 13:PLOT 0,I:DRAWTO 156,E:NEXT 1 e 
370 FOR I=0 TO 157 STEP 26:PLOT 1,0:DRAWTO 1,77:NEXT I 
380 REM F(1,1)=-1 

(5 400 REM JUEGO CENTRAL SS 
410 Z=Z+111F Z>=22 THEN 1005 
420 S=S+11 1F S>1 THEN S=0 , 

e +30 POKE V,O:POKE H,2:PRINT "“"5N$(L185+1,L1+L285)3""s"5Z3 "JUGADA: " ES 
432 PRINT N$(1,1)3"2 "¿W(2)3"  "¿N$(L1+1,L1+1)5"2"¿ABS(W(0)) 
435 FOR I=200 TO 350 STEP. -8: SOUND 0,1,10,10:SOUND 1,I+1,10,10:NEXT I:SOUND 0,0,0 

o ,Or SOUND 1,0,0,0 o 
440 X=X (S) 1 Y=Y(S) 
445 COLOR 2:G0SUB 5000 
450 K=STICK(S)11F K+STRIG(S)=16 THEN 450 


O 455 IF STRIG(S)=0 THEN 500 HX YN It (e hd 
457 COLOR 3:GOSUB 5000 : A S 
460 X=X-(K=11)8(X>1)+(K=7) 8 (X<6) AA 

A) 470 Y=Y-(K=14)% (Y>1)+(K=13)8 (Y<6) EA e 
480 GOTO 445 aa 
500 REM CONTROL DE CASILLAS 

y 310 K=1-28S: COLOR 3:G0SUB 5000 5 


520 IF SGN(F(X,Y))=-K THEN POKE V,1:GOSUB 3900:PRINT " "¿:GOSUB 3950:G0TO 430 
530 B=F (X, Y) 
540 IF ABS(B)>=4 THEN GOSUB 3900:PRINT " "3:GOSUB 3950:GO0TO 430 
550 BRABS(F(X,Y))1 1F B=1 THEN B=0 b ] hd 
600 F(X, Y)=F (X, Y) ++ (ABS (F (X, Y) )=0) 8K 
620 XX=X1 YY=Y1B=ABS (F (X, Y) )-1:GOSUB 6000 
O 650 REM EFECTO DE CASILLAS A 
700 RESTORE 3100: EN=0: FOR Q=1 TO 4 
705 K=-(288-1) 
e 710 READ DX,DY % 
720 P=F(X+DX, Y+DY):1F P=9 OR SGN(P)=K THEN 750 
730 1F P=0 THEN XX=X+DX: YY=Y+DY:B=0: GOSUB 6000: F (X+DX, Y+DY)=KzGOTO 750 
750 NEXT Q' 1: ES 
805 K=1-S$21W(0)=0:0(2)=0 5 0 
810 FOR XX=1 TO 6 O. 
815 FOR YY=1 TO 6 
820 A=F (XX, YY): IF SGN(A)<>-K THEN 890 
830 RESTORE 3100: A=0 
835 FOR Q=1 TO 5 N 
840 READ DX,DYsP=F (XX+DX ¿YVADV) 1 1F P=9 THEN 855 
350 A=A+SGN(P) KABSTABS (P)-1) Ú 
855 NEXT Q 
860 IF SGN(A)=K THEN B=0:G0SUB 6000: F (XX, YY) =k 
"890 PESGNIF (XX, YY)):W(P+1)=W(P+1)+P2NEXT YY:2NEXT XX. 
| /900 GOTO 420-S£10 
990 END 
(5 1005 GRAPHICS O 
1007 IF ABS(W(0))=W(2) THEN PRINT " ":GOSUB 4000: END 
1010 PRINT ""WESELM GANADOR ES: "; 
%) 1050 FOR I=200 TO 50 STEP -4:FOR Q=0 TO 3 
1060 SOUND Q,1,10,10:NEXT QrNEXT 1 


1100 S=0:1F ABS(W(0))>W(2) THEN S=1 Si 

O 1110 PRINT NS(L18S+1,L1+L285)7" ! ass" á ci 
1120 PRINT "288CON";W(2);" A "¡ABS(W(0));" CASILLAS GANADASA3" 
2000 END 
3000 REM DATOS : 

3100 DATA -1,0,0,-1,1,0,0,1,0,0 2 


3900 POKE V,1:POKE H, 2: RETURN 
3950 GOSUB 4000:PRINT "";¿RETURN i 

D 4000 FOR I=100 TO 170 STEP 15 E 
4010 FOR W=15 TO O STEP -1:SOUND O, I+W, 10,W:z SOUND 1,I—-W,10,W: NEXT W:NEXT 1 
4020 RETURN 


22 ESPECIAL VACACIONES 


5000 REM MARGEN DEL CONJUNTO DE CASILLAS 
4 5100 PLOT (X-1)826, (Y-1)£13:DRAWTO X*26, (Y-1)£13:DRAWTO XX26,YX13 
5110 DRAWTO (X-1)826,Y213:DRAWTO (X-1)826, (Y-1)1131 RETURN 
6000 REM CONSTRUCCION DE CASILLAS 
6100 COLOR O 
O 6120 FOR I=(YY-1)813+1 TO YYR13-1 
6130 PLOT (XX-1)£26+1,I1:DRAWTO XX*26-1,I:NEXT 1 
6140 COLOR S+1:BX=(XX-1)26: BY=YY813-1 
(% 6150 ON B+1 GOSUB £200,6300, 6500, 6600 
6160 RETURN 
6200 REM BANDERA 
e 6220 PLOT XX826-12,YY813-3:DRAWTO XX826-12,YY813-101DRAWTO XX826-9,YY813-6 
6240 FOR I=20 TO 60 STEP 4:SOUND O0,1,0,10:NEXT I2SOUND 0,0,0,0 
6290 RETURN 
£300 FOR I=BY-S TO BY:PLOT BX+3,1:DRAWTO BX+23,1:NEXT 1 
O 6340 PLOT BX+4,BY-9:PLOT BX+22,BY-9 
6350 PLOT BX+3,BY-8:DRAWTO BX+5,BY-81PLOT BX+21,BY-81DRAWTO BX+23,BY-8 
6360 PLOT BX+2,BY-7:DRAWTO BX+6,BY-7:PLOT BX+20,BY-7:DRAWTO BX+24,BY-7 
(0 6370 PLOT BX+3,BY-6:DRAWTO BX+5,BY-6:PLOT BX+21,BY-6: DRAWTO BX+23,BY-6 
6380 COLOR O: FOR I=BX+6 TO BX+20 STEP 2:PLOT 1,BY-S:NEXT 1 
5390 PLOT BX+4,BY-7:PLOT BX+22,BY-7 
£% 6400 PLOT BX+4,BY-S:PLOT BX+22,BY-5 
6410 FOR I=BY-3 TO BY:PLOT BX+12,1:DRAWTO BX+14,1:NEXT 1 
6415 IF B>1 THEN 6490 
y 4420 FOR I=1 TO 31SOUND 0,121,10,8:FOR W=1 TO 3O1NEXT WaSOUND 0,0,0,0:NEXT 1 
6430 SOUND 0,81,10,10: FOR W=1 TO 100: NEXT Wa SOUND 0,0,0,0 
65490 RETURN 
£500 REM CONSTRUCCION 
O ¿6510 GOSUB 6300: COLOR S+1 
6520 FOR I=BY-9 TO BY-S:PLOT BX+11,I1:DRAWTO BX+15,1:NEXT 1 
- 6530 COLOR O:FOR I=BY-9 TO BY-7:PLOT BX+12,1:DRAWTO BX+14,I:NEXT 1 
A $540 COLOR S+1:PLOT BX+13,BY-9:DRAWTO BX+13,BY-5 
6550 PLOT BX+11,BY-8:DRAWTO BX+14,BY-8 
5560 IF B>2 THEN 4590 
$570 SOUND 0,81,10,8: FOR I=1 TO 60:NEXT I:SOUND 0,0,0,0:SDUND 0,81,10,8:FOR I=1 
TO 30:NEXT I:zSOUND 0,0,0,0 
6580 SOUND 0,81,10,8:FOR I=1 TO 90:NEXT 1:SOUND 0,0,0,0 
6590 RETURN 
% 5600 REM TEJADO 
6610 GOSUB £300: COLOR S+1:G0SUB 4500 
6620 FOR I=0 TO 3:PLOT BX+13-I,BY-11+I:DRAWTO BX+13+I,BY-11+1 
(% 6630 NEXT 1 
6640 SOUND 0,81,10,8:FOR I=1 TO 30:NEXT I:SOUND 0,0,0,0 
6650 FOR W=0 TO 3:SOUND W,60+W/2,10,7:NEXT W:FOR I=1 TO 100:NEXT I2FOR 1=0 TO 31 
e SDUND 1,0,0,0:NEXT 1 
6690 RETURN 


BIORRITMOS 


¿Vd. cree en el biorritmo? ¿O quizá también en Papá Noel o en los Reyes 
Magos? Nosotros no publicamos aquí nuestra opinión personal sobre estas 
instituciones. Lo que ofrecemos en este programa es un ejemplo espléndido 
de cómo organizar datos bien claro. 
El ció empleado en este programa sive también para la demostración 
del rédito de papeles de valor y otros problemas donde se exige el uso de 
un dato a través de un tiempo largo. Las curvas tan bonitas para imprimir el 
biorritmo se hacen mediante la función seno que está incluida en el ATARI 
BASIC. Utilizando la línea 2068, tal como está explicada en la introducción 
en las primeras líneas del programa, se puede mandar dibujar esta función 
de seno. 

Los mandos para sacar los datos son todos PRINT+1, lo que quiere decir 
que la emisión sucede en un aparato. Al principio del programa se pregunta 
si la emisión va a tener lugar en la pantalla (E:) o en la impresora (P:). 
Las líneas 2058-2114 llenan la variable de la cadena de símbolos (A$) con 21 
blancos. La línea 212% describe una raya recta en el blanco en medio. Las 
líneas 2132-2228 colocan las letras F, M, E en A$ en su sitio; significando F 
para el bienestar corporal, M para el bienestar mental y E para el bienestar 
emocional. Dos letras en el mismo lugar tiene como resultado un * 


1000 REM 38381 ARA RADA 


1010 
1020 
1030 
1040 
1050 
1060 


as 
BIORRITMOS ES 
x 


REM ERRE 


REM 
REM 


1070 REM DIMENSIONAMIENTO DE VARIABLES 
1080 DIM 0T$(10),A(12),B(12),T(12) 
DIM AS (21),C$ (36) ,N$ (20) ,T$ (20) 


1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1195 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 


REM 


RAD ¿REM CALCULAMOS EN EL VALOR DEL ARCO 
GRAPHICS O 


PRINT 


.3." 


POSITION 2,4 


PRINT 


"3284838BIORRITMOSsx133x" 


POSITION 2,7 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"ESTE PROGRAMA AVERIGUA SUS" 
"CICLOS BIORRITMICOS Y LOS" 
“DIBUJA EN PANTALLA O" 

"EN UNA IMPRESORA" 


"Ez SALIDA PANTALLA" 
"P:SALIDA IMPRESORA" 


REM INTRODUCCION DEL SISTEMA DE IMPRESION 
INPUT OTS 
IF OTS<>"E:" AND OTS$<>"P:" THEN 1130 


REM DATOS DE COMIENZO 


REM 


RESTORE 

C$="ENEFEBMARABRMAY JUNJULAGOSEPOCTNOVDIC" 
FOR I=i TO 12 

READ A2A(1)=A 


1330 NEXT 1 

1340 FOR I=1 TO 12 

1350 READ A:B(I)=A 

1360 NEXT 1 

1370 DATA 0,31,59,90,120,151,181,212,243,273,304,334 
1380 DATA 31,28,31,30,31,30,31,31,30,31,30,31 

1400 REM EMPIEZA EL JUEGO 

1420 PRINT ">" 

1430 POSITION 12,4 

1440 PRINT "X*XXRXBIORRITMOSAXRXX4" 

1450 PRINT 

1460 PRINT " COMO SE LLAMA USTED?" 

1470 INPUT N$ 

1480 PRINT 

1490 PRINT "SU FECHA DE NACIMIENTO ?" 

1500 PRINT "DD,MM, AAA" 

1510 INPUT D,M,Y 

1520 IF Y<100 THEN Y=1900+Y 

1530 ER=0 

1540 IF D<1 OR D>B(M) THEN PRINT "DIA INCORRECTO".1ER=1 
1550 IF M<1 OR M>12 THEN PRINT "MES INCORRECTO": ER=1 
1560 IF Y<1900 OR Y>2100 THEN PRINT "ANO INCORRECTO" :1ER=1 
1570 IF ER THEN 1490 

1580 PRINT 

1590 PRINT "INDIQUE LA FECHA DE HOY" 

1600 PRINT "DD,MM,AAAA" 

1610 INPUT DO,M1,Y1 

1620 IF Y1i<100 THEN Y1=1900+Y1 

1630 ER=0 

1640 IF DO<1 OR DO>B(M1) THEN PRINT "DIA INCORRECTO": ER=1 
1650 IF M1<1 OR M1>12 THEN PRINT "MES INCORRECTO": ER=1 
1660 IF Y1<1900 OR Y1>2100 THEN PRINT "ANO INCORRECTO" :ER=1 
1670 IF ER THEN 1590 

1480 PRINT 

1690 PRINT "INDIQUE LA DURACION EN DIAS DEL BIORITMO" 
1700 INPUT Z 

1710 IF Z<1 OR Z<>INT(Z) THEN 1680 

1720 W=DO + 

1730 Wi=M1 

1740 W2=Y1 

1750 W3=Z- 

1760 J=A(M)+D 

1770 Di=365-J+((J<=60) AND (Y/4=INT(Y/4))) 

1790 Ex=0 

1800 FOR T=Y+1 TO Yi-1 
1810 ExE+(T/4=INT(T/4)) 7" 
1820 NEXT T 

1830 D3=A(M1)+DO 
1840 D3=D3+((Y/4=INT(Y/4)) AND (D3>=60)) 

1850 D4=D1+D2+D3+E 

1860 IF D4<O THEN PRINT "LA FECHA DE COMIENZO ESTA SITUADA ANTES DE LA FECHA DE 
SU NACIMIENTO" 

1870 Pi=D4-INT (D4/23) 123 

1880 E1=D4-INT (D4/28) x28 

1890 C1=D4-INT (D4/33) 233 

1900 PRINT 

1910 PRINT "AHORA VA A SER IMPRIMIDO SU PERFIL BIORRITMICO"” 

1920 PRINT 

1930 CLOSE $1 

1940 OPEN 41,8,0,0TS 

1950 PRINT $13 "CICLOS BIORITMICOS F=FISICO M=MENTAL  E=EMOCIONAL" 
1960 PRINT $15 "------ —PARA------- " 

1970 PRINT $13" "¿Ns 

1980 PRINT $13C$(3£M-2,3%M)3" "5D5 

1990 PRINT $13","3Y 

2000 PRINT $13C8(3£M1-2,38£M1)3" "; 

2010 PRINT 413 Y13" (—) (0) (+)" 


2020 
e 2030 
2040 
2050 
2060 
O 2070 
2080 
2090 
O 2100 
2110 
2120 
e 2130 
2140 
2150 
21650 
O 2170 
2180 
2190 
SD 2200 
2210 
2220 
% 2230 
2240 
2250 
2260 
O 2270 
2280 
2290 
S 2300 


FOR T=1 TO Z 

P2=(P1+T)-INT ((P1+T)/23)823 
E2=(E1+T)-INT ((E1+T) /28) x*28 
C2=(C1+T)-INT((C1+T) /33)33 
P3=INT(11.5+10XSIN(P2%6. 283/23) ) 
E3=INT (11.5+10%XSIN(E226. 283/28) ) 
C3=INT(11.5+10XSIN(C2%6. 283/33) ) 

FOR I=i TO 21 

AS(I,D=" ” 

NEXT 1 

AsS(11,11)="2" 

AS(P3,P3)=a"F" 

IF E3=P3 THEN A$S(E3,E3)="Xx"2G0TO 2160 
AS(E3,E3)="E" 

IF C3=E3 OR C3=P3 THEN 2180 

AS (C3,C3)="M"2G0TO 2190 

AS (C3,C3)="x" 

IF DO=i THEN PRINT $15C$ (32M1-2,33M1)3" "32G0OTO 2210 
PRINT diz" *s 

T$=STRS (DO) 

IF LEN(TS)=1 THEN PRINT $15" "3 

IF LEN(TS)=2 THEN PRINT $13" "3 

PRINT $$13TS5" *S 

PRINT $13A8 

IF Yi-(INT(Y1/4))%4=0 THEN B(2)=29 
DO=DO+1: 1F DO>B(M1) THEN DO=1:2:M1=M1+1 
IF Mi>12 THEN Miz1i:Yi=Yi+1. 

NEXT T 

IF OTs="E:" THEN FOR PA=1 TO 1000:NEXT PA 
GOTO 1130 


100 
105 
106 
107 
108 
300 
310 
350 
360 


440 


455 
456 
457 
460 


(4), 


470 


LA SERPIENTE PELIGROSA 


Descripción del programa. (ATARI 600 XL, 800 XL, 3654 bytes, dos joys- 
ticks), para dos jugadores. 

La esencia de este juego de habilidad es que los caminos de las dos ser- 
pientes no se cruzen. En cuanto su «gusano sinfín» tropieze con el trayecto 
del otro, un Sprite marca en el lugar del encuentro una falta. 

El ordenador marca el ganador de cada vuelta y le suma diez puntos en su 
cuenta. 

El paso del juego: después de haber empezado el programa y haber intro- 
ducido los nombres de los jugadores, ambos tienen que mover su joystick 
para que pueda empezar el juego. ¡Cuidado! Las serpientes no se paran al 
soltar el joystick, siguen la dirección que tú le has indicado la última vez. 
Algunos trucos: se pueden cruzar trayectos diagonales con un poco de habi- 
lidad. Una huida de la serpiente hacia fuera de la pantalla hace que apa- 
rezca otra vez en el lado opuesto de la pantalla. 


REM IBERIA 


REM % LA SERPIENTE: PELIGROSA  X 


REM £ 


% 


REM BXBRAABRARAAA AAA 

DIM S1$(10),3828$(10),A$ (10) 

GRAPHICS 2: SETCOLOR 2,0,0 

PRINT "NOMBRE DEL 1 JUGADOR"3+ INPUT S15S 
PRINT "NOMBRE DEL 2 JUGADOR"3 1 INPUT S2$ 
400 DIM Si (30),S2(30) 

SPIEL=SPIEL+1 

450 GRAPHICS 5: SETCOLOR 2,0,0:1POKE 755,0 


PRINT " 
PRINT " 
PRINT *” 


S1 (3)=19:151 (4)=59182(3)=19:392(4)=19: COLOR 2:PLOT S1(3),82(3): COLOR 1:PLOT Si 


S2 (4) 
Z=4 


JUGADA: —"¿SPIEL 
"38183": "3P1 
"38283": "3P2 


480 IF STICK(0)=15 OR STICK(1)=15 THEN 480 
490 1F Z=24 THEN GOSUB 2300 

500 SL=S1 (7-1):28B=S2(Z-1) 

510 Z=Z+13 1F 2Z/2=INT(Z/2) THEN T=O0 

320 IF Z/2<>INT (2/2) THEN Tmi 

530 Ex=STICK(T): SOUND 0,60, 10,8 

IF E=14 THEN SB=SB-1 

IF E=13 THEN SB=SB+1 


550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 


IF Ex11 


THEN SL=SL-1 


IF E=7 THEN SL=SL+1 

IF E=10 THEN SL=SL-11SB=SB-1 
IF E=5 THEN SL=9L+1:3SB=SB+1 

IF E=9 THEN SL=SL-1:SB=SB+1 

IF Ex6 THEN SL=SL+1:3 8B=SB-1 

IF E=i5 THEN GOSUB 2000 

IF SL>77 THEN SL=2 

1F SB>37 THEN SB=2 

IF SL<2 THEN SL=77 

IF SB<2 THEN SB=37 

680 LOCATE SL,SB, CONTROL 

685 IF T=0 AND CONTROL=2 THEN 1500 
690 IF T=i AND CONTROL=1 THEN 153500 
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700 COLOR T+1:2PLOT SL,SB 

705 SOUND 0,121,10,8:2POKE 77,0 e 
710 S1 (7)=8L:S2(Z)=SB 

720 GOTO 490 

1500 GRAPHICS S+16+32:SETCOLOR 2,0,8: COLOR 3: G6H=0 $ 
1505 GH=GH+1 

1510 PLOT SL,SB:DRAWTO 2,2 

1520 PLOT SL,SB:DRAWTO 77,37 

1530 PLOT SL,SB:DRAWTO 2,37 ds 
1540 PLOT SL,SB:DRAWTO 77,2 

1550 PLOT SL,SB:DRAWTO 38,2 

1560 PLOT SL,SB:DRAWTO 38,37 o 
1570 PLOT SL,SB:DRAWTO 2,18 

1580 PLOT SL,SB:DRAWTO 77,18 

1590 IF GH=2 THEN 1600 $ 
1595 COLOR O: FOR X=i TO 20:NEXT X:GOTO 1505 

1600 GRAPHICS 18:FOR X=1 TO 255 STEP 2:SOUND O,X,6,10:SETCOLOR 4,0,X:NEXT X 

1620 GRAPHICS 2:SETCOLOR 2,0,0 

1630 IF T=i THEN AS=S19:Pi=P1+10 e 
1640 IF T=0 THEN A$=S28: P2=P2+10 

1650 POSITION 9-((LEN(AS$))/2),3:PRINT $6;A8 

1660 POSITION 3,5:PRINT 865 "HA GANADO !" de 
1670 POKE 7355,0:PRINT ¿SOUND 0,0,0,0 

16580 PRINT "PUSAR EL BOTON ROJO DEL MANDO DE JUEGO" 

1690 IF STRIG(0)+STRIG(1)=0 THEN GOTO 440 $ 
1700 GOTO 1690 

2000 U=0:2 J=0 

2001 1F Si (2-2)=2 AND Si (2-4)=77 THEN SLeSL+12Umi . En 
2002 IF Si (Z-2)=77 AND Si (Z2-4)=2 THEN SL=SL-1:J=1 . : 
2003 IF S2(Z-2)=2 AND S2(2Z-4)=37 THEN SB=SB+1:U=U+2 

2004 1F S2(2Z-2)=37 AND S2(Z-4)=2 THEN SB=SB-112J=J+2 

2005 IF J<>1 AND J<>3 AND Si (7-2) >81 (2-4) THEN SL=SL+1 Q 
2010 IF U<>1 AND U<>3 AND S1 (Z-2)<S1 (Z-4) THEN SL=SL-1 

2020 IF J<>2 AND J<>3 AND 82(2Z-2)>82(2-4) THEN SB=SB-1 

2030 IF U<>2 AND U<>3 AND S2(Z-2)<S2(Z-4) THEN SB=SB-1 do 
2040 RETURN 

2300 381 (0)=381 (20) :S1 (1)=S1 (21) 

2310 S1 (2) =S1 (22) 1381 (3)=81 (23) E 
2320 32(0)=32 (20) :92(1)=S2 (21) : 

2330 S2(2)=32 (22) 1892(3)=82 (23) 

2340 Z=32 RETURN 


ORIGEN DE COORDENADAS DE 
UNA FUNCION (ATARI 600, 800 XL) 


Tomemos la siguiente función: 
FOOD) = 3% — 5x* + 7x — 21 =0 (fig. Nl) 

Cuando x=2,12181211 la ecuación de tercer grado toma el valor 0. 
La resolución de la curva de esta función se obtiene a través de la ILLI- 
NOIS-ALGORITHMUS, una «modificación de la ya conocida Regula Falsi, la 
cual permite hallar la curva de cualquier ecuación. La fig. N2 de la repre- 
sentación gráfica de la función nos muestra una curva comprendida en un 
intervalo de X, donde nos encontramos un valor de resolución de la ecua- 
ción. El punto de corte X hallado por la secante es un punto de escape de 
la función, para los siguientes valores de X, los cuales deberán ser elegidos 
de tal forma que la función pueda invertirse, hasta que el valor de X sea X 
< 0, donde encontraremos entonces el origen de coordenadas de la fun- 

ción. 
Mediante esta fórmula encontramos el punto de corte con el eje X. 
X = X-(X,-IOF009-FOD) FOD a través de los siguientes intervalos: 
(X,FOD),(X, FO) 
Contrucción del programa: 
Definiremos la función a resolver en la línea 254. 

Desde la línea 294 hasta la 432 se definirán los valores X1 y X2, donde la 
función puede tener su origen de coordenadas. Los valores deben estar 
comprendidos en intervalos muy diferentes. 

Desde la línea 458 a 584, el programa busca el origen de coordenadas. Las 
líneas 608 a 632 dan el valor del intervalo origen de coordenadas de la fun- 
ción y busca la tercera solución de la ecuación, ya que en este caso es crí- 
tica. 

Desde la línea 648 hasta la 684 serán para la búsqueda de una nueva solu- 
ción, o bien seguir si se desea. 


N2 1: FG) = 3 — 5x + 7x = 21 | 


A] 


100 
105 
106 
107 
108 
109 
245 
250 
290 
300 
310 
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REM BEREBER AAIAA o 
REM £ % 

REM % ORIGEN DE COORDENADAS 2 $ 
REM £ DE UNA FUNCION z 

REM 2 2 

REM BEEEREARERA REA AAA 

DIM NAMES (40) ¿GOTO 290 dle 
FX=38X"3-58X"2+78X-21 1 RETURN 

PRINT CHRS (125) :SETCOLOR 2,10,0 

PRINT "DEFINION DEL ORIGEN DE COORDENADA":PRINT "REGULA FALSI":PRINT :PRINT E 
PRINT "LA FUNCION F(X) ESTA DEFINIDA EN LA LINEA 250"2PRINT "CONTINUAR (S) R 


EDEFINIR LA FUNCION (N)" 


320 
330 
340 
350 
360 
370 
380 
390 
410 
420 
430 
470 
480 
490 
500 
510 
520 
330 
540 
550 
560 
570 
580 
620 


A=PEEK (764) 1 1F A=255 THEN 320 0 
POKE 764,255 

IF A=62 OR A=106 THEN 360 

STOP 

PRINT CHR$ (255) E] 
PRINT “NOMBRE DE LA FUNCION": INPUT NAMES 


PRINT 2¿PRINT “ELECCION DE VALORES DE FUNCION” 

PRINT "TECLEA VALORES DE X1,X2"z INPUT X1,X2 % 
X=X1:GOSUB 250: FX1=FX 

X=X2:GOSUB 2501 FX2=FX 

IF FX1*FX2>0 THEN 380 0 
X3=X2-(X2-X1) / (FX2-FX1)*FX2 

X=X31 GOSUB 250: FX3=FX 

IF FX3=0 THEN 590 

IF ABS(FX3)<1.0E-05 THEN 620 o 
IF FX38FX2>0 THEN 550 

X1=X2 

FX1i=FX2 ES 
GOTO 560 

FX1=FX1/2 

FX2=*FX3 

GOTO 470 

PRINT ¿PRINT "ORIGEN DE COORDENADAS DE ":PRINT NAMES:PRINT "SOLUCION" :PRINT 


¿PRINT "X="3X3 0 


625 
630 
640 
650 
660 
670 
680 


X=X3:G60SUB 250 

PRINT :PRINT "RESOLUCION: "3PRINT ¿PRINT "F("¿STRS(X3)3")="3FX 

PRINT :PRINT "NUEVO VALOR (S/N) 7?" e 
A=PEEK (764): 1F A=255 THEN 650 

POKE 764,255 

IF A=62 OR A=106 THEN 380 ES 
END 


30 


ESPECIAL VACACIONES 


EFECTOS ESPECIALES DE 
SONIDO 


Este es un programa para que consigas rápidamente efectos de sonido. 
Aquí se muestran algunos de los extraños efectos que tú puedes conseguir 
con un sonido estático, haciendo uso de interferencias de ondas sonoras. 


— Con estas rutina, te demostraremos las posibildades de sonido que tiene 
tu ATARI Una vez tecleado el programa, utiliza tu joystick, muévelo en 
todos los sentidos y podrás escuchar combinaciones infinitas de sonido. 
(listado 1) 


100 REM DEMOSTRACION 
110 POKE 752,1:PRINT CHR$ (125) ¿ SOUND 0,0,0,0: DELTA=1 

2 120 POSITION 8,22PRINT "EFECTOS DE SONIDO " ES 
130 POSITION 11,11:PRINT " STICK (0) = "2REM POKE 53768,4 


140 SOUND 1,STICK(0),10,14 


o 150 SOUND 2,ABS(STICK(0)-—DELTA),10,7 la 
160 POSITION 23,11:2PRINT ” "" ; CHAS (30) 3 CHR$ (30) 3 CHAS (30) ; STICK (0) 
E 170 FOR DELAY=0 TO 1:NEXT DELAY:GOTO 140 rs 
E — Aquí se produce el sonido de un tren de vapor con su pitido y todo. d 
(listado 2) 
6 20650 REM TREN $ 
20651 REPEAT=0: DELTA=10:FOR TIME=i TO 90:G0TO 20653 
20652 DELTA=75:FOR TIME=1 TO 50 

0 20653 FOR VOLUME=15 TO 4 STEP —DELTA/100: SOUND O, 15,0, VOLUME: NEXT Y bid 
OLUME % 

$ 20654 DELTA=DELTA+1: 1F DELTA>7S THEN DELTA=75 $ 
20655 NEXT TIME: SOUND 0,0,0,0: IF REPEAT>2 THEN 20652 
20656 REPEAT=REPEAT+1:FOR WHISTLE=i TO 2 

2 20657 FOR VOLUME=2 TO 10 STEP 0.5 
20658 SOUND 1,50, 10, VOLUME: SOUND 2,70, 10, VOLUME: SOUND 3,90, 10, VOLUM 
E:NEXT VOLUME 

% 20659 FOR DELAY=1 TO 400:NEXT DELAY: SOUND 0,0,0,0 e 
20660 FOR VOLUME=10 TO 1 STEP -2 

0 20661 SOUND 1,50, 11, VOLUME: SOUND 2,70, 11, VOLUME : SOUND 3,90, 11, VOLUM % 
E:NEXT VOLUME 
20662 FOR DELAY=1 TO SO:NEXT DELAY 

ES 20663 SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0:NEXT WHISTLE $ 
20664 GOTO 20652 

$ e 

— Este es el del coche de un policía americano. 
(listado 3) 

$ 0 
20670 REM COCHE DE POLICIA 

e 20671 X=50:Y=35: STEPP=-1 e 
20672 FOR TIME=1 TO 10:FOR PITCH=X TO Y STEP STEPP 
20673 SOUND 1,PITCH, 10,15 

O 20674 FOR DELAY=1 TO 15:NEXT DELAY:NEXT PITCH * 
20675 TEMP=X3 X=Y: Y=TEMP: STEPP=-STEPP: NEXT TIME. 

e 206765 GOTO 20671 0 
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— Si tú has necesitado alguna vez un tanque, aquí tienes el sonido de uno 
bueno. 
(listado 4) 0 


20680 REM TANQUE Edo 
20681 FOR VOICE=0 TO 3:SOUND VOICE, 255,2,4:NEXT VOICE:GOTO 20681 
20682 REM USA ESTO PARA PARAR EL MOTOR DEL TANQUE 


20683 FOR VDICE=0 TO 3:SOUND VOICE,0,0,0:NEXT VOICE e 
L) 
— Con esta rutina podrás obtener un auténtico trueno. 
(listado 5) e 
20690 REM TRUENO $ 


20691 FOR PITCH=S TO 100 STEP RND(0)+0. 2 
20692 SOUND O,PITCH,8, (100K£RND (0) +50) /PITCH 


20694 NEXT PITCH:SOUND 0,0,0,0:SOUND 1,0,0,0 1] 
3 
— No creo que haya muchas aplicaciones de esto, pero tal vez necesites el 
zumbido de una mosca. 5 
(listado 6) 
20700 REM MOSCA $ 


20701 SOUND 0,0,0,0 

20702 POKE 53760, INT (6%RND (0) ) +249 ó 
20703 POKE 53761, INT (44RND (0) )+167 

20704 GOTO 20702 


$ 
— Aquí tienes un buen sonido de motor de barco, para tu próximo juego 
«Ataque al monstruo del lago». . En 
(listado 7) 
1 


20710 REM MOTOR DE BARCO 
20711 SOUND 0,255,11,10 


20712 FOR CONT=i TO 6:SOUND 0,0,0,0:NEXT CONT 0 
20713 GOTG 20711 


O 
— ¿Has escuchado alguna vez cerrarse poco a poco la boca de acceso a un 
túnel situada en una acera? ¿no? Este rutina te da una idea de cómo sería el E) 
sonido. 
(listado 8) 
e 
20720 REM BOCA DE ACCESO $ 
20721 FOR COUNT=10 TO O STEP -0.15 
20722 FOR VOLUME=1 TO COUNT: SOUND O, 255,8, VOLUME: NEXT VOLUME 


20723 FOR VOLUME=2%*COUNT TO 1 STEP -—1:SOUND O,255,8, VOLUME: NEXT VOL O 


20724 NEXT COUNT 
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— ¡Ah!... No hay nada como estar.en la playa, escuchando el sonido de las 


olas. 

0 (listado 9) 0 
20730 REM OLEAJE 

% 20731 FOR PITCH=0 TO 10: SOUND 2,PITCH,39,4 e 
20732 FOR DELAY=i TO 30:NEXT DELAY:NEXT PITCH 

0 20733 FOR PITCH=10 TO O STEP -1:SOUND 2,PITCH,8,4 0 
20734 FOR DELAY=1 TO 300:NEXT DELAY:NEXT PITCH 
20735 GOTO 20731 

Ll > 

— En caso de que pases tu próxima aventura en París, Londres, Luxem- 
9 burgo o Roma, aquí tienes un ejemplo de la típica sirena de un coche de e 
policía europeo. 
(listado 10) 

$ > 
20740 REM SIRENA 

2 20741 X=57: Y=452 TEMP=45 had 
20742 FOR TIME=0 TO 10:SOUND 1,TEMP, 10,15 

en 20743 FOR DELAY=1 TO 180:NEXT DELAY o 
20744 TEMP=X:3 X=Y: Y=TEMP:NEXT TIME 
20745 GOTO 20742 

e % 

— Aquí hay un estupendo y tétrico trueno de tormenta para tu próximo 
2 juego de aventuras «Muerte en la cripta». o 
(listado 11) 
ES % 


20750 REM TORMENTA 
20751 FOR COUNT=i TO 2:MAX=INT (2563RND (0) ) +50: WAIT=2004RND (0) 
% 20752 FOR PITCH=1 TO MAX: SOUND O,PITCH,8,15:NEXT PITCH 0 
20753 FOR DELAY=1i TO WAIT:NEXT DELAY:NEXT COUNT:SOUND 0,0,0,0 
20754 SOUND 1,0,0,15 


0 20755 FOR DELAY=i TO INT(3000%4RND(0)):NEXT DELAY o 
20756 GOTO 20751 
O $ 
— Shades de Edgar Allan Poe. ¿Es éste el cuento que hace palpitar tu co- 
0 razón? % 
(listado 12) 
Oo 


20760 REM CORAZON 

20761 FOR COUNT=1 TO 40:SOUND 0,12,3,15:NEXT COUNT 

20762 FOR COUNT=1 TO 150:SOUND 0,0,0,0:NEXT COUNT $ 
20763 GOTO 20761 


O 
— 3, 2, 1, 0... ¡Despegamos! 
(listado 13) o) 
20770 REM DESPEGUE ES] 


20771 FOR PITCH=255 TO 1 STEP -—1:SOUND O,PITCH,8,89 


20772 FOR DELAY=1 TO 5S:¿NEXT DELAY:NEXT PITCH 
O | 
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— Lanza un huevo al aire. No me preocupa dónde caiga. 
(listado 14) 


REM RUIDO 
FOR PITCH=30 TO 125 STEP 3 


SOUND 1,PITCH, 10, INT(PITCH/10) 

FOR DELAY=1 TO INT(PITCH/10):NEXT DELAY:NEXT PITCH 
SOUND 1,20,0,14:SOUND 2,255,10,15 

FOR DELAY=1 TO 100:NEXT DELAY 


— ¡Cuidado! ¡Ahí fuera hay un platillo volante! 
(listado 15) 


REM 

FOR PITCH=255 TO 195 STEP -1 

SOUND 1,PITCH,10,10:SOUND 2,PITCH/2,10,15 
FOR DELAY=1 TO 10:NEXT DELAY 

SOUND 1,PITCH+5,0,5: SOUND 2,PITCH/2,0,10 
FOR DELAY=1 TO 5:NEXT DELAY:NEXT PITCH 


— ¡Alarma! ¡Que viene el enemigo! ¡Que viene el enemigo! 
(listado 16) 


REM ALERTA ROJA 
SOUND 0,0,0,0 

VOLUME=8: PITCH=100 

POKE 53768, 4 

POKE 53761, 160+VOLUME 
POKE 53765, 160+VOLUME+4 
POKE 53760,PITCH 

POKE 53764,PITCH/2 
GOTO 20802 


— Este es el típico sonido de claxon 
(listado 17) 


REM CLAXON 

FOR COUNT=1 TO 10:FOR PITCH=1 TO 10 

SOUND O, 100—PITCH, 10, 10:NEXT PITCH 

SOUND 0,90,10,14:SOUND 1,95,10,14:zSOUND 2,20,2,4 

FOR DELAY=1 TO 200:NEXT DELAY 

SOUND 1,0,0,0:SOUND 2,0,0,0 

FOR PITCH=1 TO 35:SOUND O,90+PITCH, 10,8:NEXT PITCH 
SOUND 0,0,0,0:FOR DELAY=i TO 100:NEXT DELAY:NEXT COUNT 
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— Los aviones de bombardeo nazis están encima de nosotros. 
(listado 18) 


20820 REM BOMBARDERO 
20821 DURATION=10: VOLUME 1 =4 


20822 FOR PITCH=30 TO 75: SOUND O,PITCH, 10, VOLUME1: SOUND 1,PITCH+3,1 
0,0. 7X VOLUME 1 

20823 FOR DELAY=1 TO 3XDURATION:NEXT DELAY 

20824 VOLUME 1=1.O3XVOLUME12NEXT PITCH o 
20825 SOUND 2,35,8, 12: VOLUME 1=15:1 VOLUME2=15: VOLUME3=15: PITCH=DURATI 
ON+5: DELTA=0. 79+DURAT ION/ 100 e 
20826 SOUND O,PITCH,8, VOLUME 1: SOUND 1,PITCH+20,8, VOLUME2: SOUND 2,PI 
TCH+50, 8, VOLUMES3 

20827 VOLUME 1 =DEL TAR VOLUME 1 : VOLUME=(DELTA+0. 05) KVOLUME2: VOLUME3= (DE > 
LTA+0. 08) KVOLUME3 : 

20828 IF VOLUME3>1 THEN 20826 

20829 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:G0TO 20821 


— Todas las bombas están explotando alrededor de nosotros. 
(listado 19) 


20830 REM EXPLOSION 

20831 DURATION=8: VOLUME 1 =5 

20832 SOUND 2,35,8,12: VOLUME 1=15: VOLUME2=15: VOLUME3=15: PITCH=DURAT I 
ON+5: DELTA=0. 79+DURAT ION/ 100 E 
20833 SOUND O,PITCH, 8, VOLUMEi: SOUND 1,PITCH+20,8, VOLUME2: SOUND 2,PI 


TCH+50, 8, VOLUME3 

20834 VOLUME 1=DELTAXVOLUME 1 : VOLUME2= (DELTA+0. 05) ¿VOLUME2: VOLUME3=(D“ 
ELTA+0. 08) KVOLUME3 

20835 IF VOLUME3>1 THEN 20833 

20836 SOUND 0,0,0,0: SOUND 1,0,0,0: SOUND 2,0,0,0 

20837 GOTO 20831 
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TRES NUEVOS LIBROS EN ESPAÑOL PARA ATARI 


Acaban de aparecer en el mercado tres novedades editoriales en español para Atari. Dos de los nuevos li- 
bros son traducciones de los correspondientes volúmenes en alemán pertenecientes a la famosa colección Data 
Becker. El tercero es netamente español y ha sido producido por el departamento técnico de Unimport Ibérica 


S.A. 


JUEGOS DE ESTRATEGIA Y COMO SE PROGRAMAN EN 
EL ATARI. Walter Schneider. Editado por Ferré y Moret, 
S. A. Barcelona 1985. 

Hay diferentes tipos de juegos de ordenador. En los 
de tipo «Arcade», la clase reside fundamentalmente en la 
agilidad y buenos reflejos del usuario y su habilidad en el 
manejo del joystick. En los juegos de estrategia, sin em- 
bargo, el camino de la victoria debe encontrarse mediante 
el buen uso de la inteligencia y, el sentido común y la as- 
tucia. 

El libro de Walter Schneider, que estamos comen- 
tando, trata exclusivamente de juegos de estrategia, como 
«Blocaje» o el famoso «cuatro en raya». La obra, sin em- 
bargo, no es una pura recopilación de listados como por 
desgracia acostumbran a ser muchos de los volúmenes 
que empiezan ya a inundar el mercado. Schneider, por el 
contrario, ha optado por un enfoque instructivo, donde el 
programa está concebido como un punto de partida para 
un conjunto de interesantes reflexiones sobre la mecánica 
del razonamiento, los sistemas de aprendizaje, la teoría de 
resolución de problemas y sobre todo la metodología de 
programación estructurada. 

En este sentido, la obra es a la vez divertida y enri- 
quecedora. Los programas que se ofrecen son realmente 
atractivos, pero quizá lo más importante del libro sea que 
su lectura detenida aportará sin duda mucha luz sobre el 
misterio de la naturaleza de pensamiento y las posibili- 
dades del ordenador como máquina capaz de realizar fun- 
ciones «inteligentes». 


MANUAL ESCOLAR PARA ATARI. Warner Woss. Editado 
por Ferré y Moret, S. A. Barcelona 1985. 

Este «Manual Escolar» está orientado a hacer que los 
estudiantes descubran hasta qué punto el ordenador, y 
concretamente el Atari, en cualquiera de sus versiones, 
pueda convertirse en un eficaz compañero en sus tareas 
académicas. En este sentido, la obra de Woss resulta im- 
prescindible para quienes no han sabido pasar de la mo- 
desta calculadora de bolsillo, sin comprender que un or- 
denador representa un instrumento mucho más potente y 
versátil para resolver la multitud de tareas rutinarias que 
se presentan en la vida escolar. 


ATARI 


—— o) 
600 XL-800 XL-130XE | 
Programas, Aplicaciones 


y Ejercicios Prácticos 


El libro permite utilizar el ATARI eficazmente en 
temas muy diversos que van desde las matemáticas a la fí- 
sica Oo gramática, progresiones, igualdades cuadráticas, 
movimiento pendular, estructura molecular, ejercicios de 
vocabulario... 

La obra, además, se completa con una sustanciosa in- 
troducción a la programación y al BASIC, así como un es- 
tudio en torno a la metodología del uso del ordenador en 
la resolución de problemas teóricos. 

El estilo es francamente ameno y la presentación ex- 
tremadamente correcta. Estamos, pues, ante una obra muy 
recomendable para todos aquellos que vean el ordenador 
como una poderosa herramienta al servicio de su cerebro. 


ATARI, PROGRAMAS Y EJERCICIOS PRACTICOS. Miguel 
Angel Barrado. Editado por Unimport Ibérica, S. A. Madrid 
1985. 

Si el éxito de un libro se mide por su capacidad para 
cubrir un hueco en el mercado y ofrecer algo que no 
pueda encontrarse en ninguna otra obra, entonces el éxito 
de Miguel Angel Barrado y su equipo de expertos «Atarió- 
logos» está asegurado. Efectivamente, la obra que estamos 
comentando se caracteriza por ofrecer al lector un con- 
junto diversísimo de informaciones del máximo interés 
que, sin embargo, son muy difíciles de encontrar en la bi- 
bliografía actualmente disponible. Cada uno de los temas 
tratados va ilustrado como deben ir ilustradas las cosas en 
los libros de ordenadores, esto es, con un buen programa, 
de tal modo que la obra supone una síntesis perfecta entre 
la pura información teórica y su correspondiente expresión 
práctica. 

Algunos de los temas que se tocan en el libro son 
tests de colores, teclas funcionales, DOS desde el Basic, 
gráficos Player-Missile, Joysticks, Temporizador... Todos 
ellos están tratados magistralmente y con un profundo co- 
nocimiento técnico, como corresponde al buen ganado 
prestigio de Barrado y su competente equipo (R. Espejo, 
E. Cáceres y V. Purswami) 

Recomendamos, por lo tanto, la obra como un exce- 
lente libro de consulta sobre Atari y al mismo tiempo, 
como fuente de diversión y entretenimiento. 


Pregunta: Tengo un 600 XL y 
estoy muy contento con él y con 
su BASIC. Hago programas en 
BASIC, pero mis preguntas son 
éstas: ¿Es posible meter pro- 
gramas de libros de otros ordena- 
dores a micros en BASIC en el 
600 XL? ¿Qué son los SPRITES? 
¿Qué es la Media y Alta resolu- 
ción? Muchas gracias por poner 
un curso de BASIC en vuestra re- 
vista. 


Rmte. Alfredo Vázquez García 


Respuesta. Respecto a la primera 
pregunta, lamentamos decirte que no 
se pueden meter programas de otros 
ordenadores en el ATARI 600 XL ni en 
ninguno, porque cada marca de orde- 
nador tiene un sistema operativo dife- 
rente. ATARI tiene su propio sistema 
operativo. Los únicos ordenadores en 
los que se puede meter programas de 
todo tipo son los MSX, puesto que utill- 
zan un sistema operativo standard. 

En cuanto a los SPRITES debes sa- 
ber que son unos planos superpuestos 
en la pantalla de tu ordenador, en los 
que puede dibujarse cualquier gráfico, 
darles movimiento, hacer colisionar 
unos con otros para conseguir efectos 
especiales, etc., sin que los demás 
planos queden afectados para nada. A 
los SPRITES se les denomina en 
ATARI, PLAYER-MISSILE: 


Para que entiendas lo que es media 
y alta resolución, te explicaremos pri- 
mero lo que es resolución. Resolución 
es la capacidad que tiene un ordena- 
dor para definir con mayor o menor ni- 
tidez un carácter o gráfico en pantalla. 
Según el número de puntos que se uti- 
lize, se llamará alta, media o baja reso- 
lución. La resolución máxima del 
ATARI es de 320 x 192. Depende del 
gráfico que utilicemos trabajaremos 
con más o menos puntos. Cuanto más 
puntos, mayor nitidez, pero como con- 
trapartida, podremos utilizar menos co- 
lores. Con la máxima resolución sólo 
Podrán utilizarse dos colores. 


Pregunta: Tengo una gran duda 
que he intentado buscarla en el 
manual para poder aclararla y no 
ha podido ser así, por eso les pre- 
gunto a ustedes para que me la 
resuelvan. 

He buscado en el manual una 
instrucción para poder hacer en 
el teclado las funciones de joys- 
tick, es decir, que se pueda jugar 
a través del teclado y no con el 
Joystik. 

Si ustedes conocen alguna ins- 
trucción que pueda hacer esto me 
gustaría que me la dijeran. 


Rmte. José Luis Campos 
Martínez 
Sevilla 


Respuesta. La respuesta a tu pre- 
gunta es muy sencilla. Para que puedas 
jugar a través del teclado sin utilizar el 
Joystick, no tienes más que abrir el ca- 
nal del teclado y asignar a cualquiera 
de las teclas, la función deseada. 


Pregunta: ¿Existe alguna im- 
presora de la marca ATARI que 
no sea ni la plotter, ni la 1027? Si 
es así, ¿dónde puedo conse- 
guirla? Y si no, ¿puede hacer grá- 
ficos la 1027? 


Rmte. Juan Postlbauer Correas 
Alicante 


Respuesta. Me temo amigo Juan que, 
de momento, no existe ninguna otra im- 
presora en el mercado español de la 
marca ATARI. No obstante, el distribui- 
dor exclusivo de ATARI en España, 
UNIMPORT IBERICA, para el mes de 
octubre tiene previsto presentar en la 
feria de SONIMACG cuatro nuevos mo- 
delos de impresoras: dos de impacto 
matricial y dos de margarita. 

En cuanto a si dichas impresoras 
pueden realizar gráficos, la respuesta 
es negativa; sin embargo, puedes utili- 
zar cualquier impresora del mercado 
con un protocolo de comunicación pa- 
ralelo Centronic y conectarla a tu 
ATARI mediante el interface MPP 1150 
y así podrás realizar cualquier tipo de 
gráfico. 


a A A A 
| BOLETIN DE SUSCRIPCION 


Deseo suscribirme a la revista «Atari Explorer» por el periodo de un año, por lo | 
que abonaré la cantidad de 1.900 pesetas mediante: 
Talón nominativo a nombre de ATARI EXPLORER 
Contra reembolso del primer número  [j 


A o A 


Dirección: 


POBDIACIÓN: smart 
A A 


Departamento de suscripciones 
«Atari Explorer» 

Ponciano, 6 

28015 MADRID 


li a y e, ds o o o 


SUSCRIBETE Y GANA 
UN ATARI 800 XL 


Colección ORIENT Chandor 


MAS DE 200 MODELOS 


EMBEE (RITA-HIRO) 


ne 
YU (P 
Apartado de Correos 599 10) 
29080 MALAGA 23 Chandor 


¿ HA APROBADO SU HIJO ? 


POR MENOS DE 60.000 pras. 


Contiene, nada menos que: 
Un potente Ordenador Personal Atari, 
modelo 800 XL. 
Un grabador-cassette stereo. 
Una pareja de Joysticks. 
Un Programa doble cassette 
«Iniciación a la Programación». 
Un juego en cartucho 
«Donkey Kong». 
El libro «Todo sobre Atari». 
Y un manual de Basic. 


Lo dicho, usted tiene ahora la excusa perfecta para 
«regalarse» todo esto ¡por menos de 60.000 ptas.! 
Y encima queda como un padre 
sobresaliente. 


aerea cam somnccconas AVAL ma 


Distribuidor Exclusivo para España: 


Unimport Ibérica. S.A. 


C/ Dos Amigos, 3. Tels.: 247 31 21 - 247 31 26 
Télex: 43038 UNPT E. 28015 MADRID 


¡Qué mejor coartada que el éxito 
de su hijo en el colegio para , 
llevar a su casa esta . 
soberbia Caja 

de Atari! 


